Syntax10.Scn.Fnt
StampElems
Alloc
20 Jan 95
MODULE Input;	(* mf 9.12.92 *) (* mah 
	IMPORT
		SYS:=SYSTEM, Macintosh, Sys;
		TimeUnit- : INTEGER;
	PROCEDURE Available*(): INTEGER;
	BEGIN	RETURN Macintosh.Available()
	END Available;
	PROCEDURE Read*(VAR ch: CHAR);
	BEGIN	Macintosh.Read(ch)
	END Read;
	PROCEDURE Mouse*(VAR keys: SET; VAR x, y: INTEGER);
	BEGIN	Macintosh.Mouse(keys, x, y)
	END Mouse;
	PROCEDURE SetMouseLimits*(w, h: INTEGER);
	BEGIN	Macintosh.SetMouseLimits(w, h)
	END SetMouseLimits;
	PROCEDURE Time*(): LONGINT;
	BEGIN RETURN 50*Sys.TickCount () DIV 3		(* convert to milliseconds *) 
	END Time;
BEGIN TimeUnit:=1000
END Input.